Class Foo
    Public a

    Private Sub Class_Initialize
        a = 0
    End Sub
End Class

Set obj = New Foo

For i = 0 To 1000000
    obj.a = obj.a + 1
Next

WScript.Echo obj.a
